请各位同学于2022年11月6日24点前将作业上传到课堂派

1、请将你的html文件命名为：姓名_学号_统计软件第3次作业。

2、展示你的代码、输出结果和相应的注释

3、凡迟交或不交作业或命名不正确的，本次作业将有相应扣分。

任务一：

实际数据分析中经常会处理时间序列数据，例如示例data中存放了2008年到2010年3年的月度数据，包括某产品的销量数据以及两个宏观经济指标数据（当月新增贷款和房地产投资额）。首先，绘制某产品销量的月度时序图，并在图中用红线标记出年份分割，如下图所示。

将上图横坐标以每个季度为格点进行标记，输出如下图所示

任务二：

如果希望了解当月新增贷款与某产品销量的关系，可以绘制如下折线图

任务三：

如果想了解当月贷款新增额与房地产投资之间的关系，可以绘制如下双坐标轴折线图

任务四：

完成课堂小作业，添加发布会日期

library(plotly)
## Loading required package: ggplot2
## 
## Attaching package: 'plotly'
## The following object is masked from 'package:ggplot2':
## 
##     last_plot
## The following object is masked from 'package:stats':
## 
##     filter
## The following object is masked from 'package:graphics':
## 
##     layout
annouced = c("2010-06-07", "2011-10-04", "2012-09-12", "2013-09-10", "2014-09-09", "2015-09-09", "2016-09-08")
product = c("iPhone 4", "iPhone 4s", "iPhone 5", "iPhone 5s", "iPhone 6", "iPhone 6s", "iPhone 7")
## Warning: `arrange_()` was deprecated in dplyr 0.7.0.
## Please use `arrange()` instead.
## See vignette('programming') for more help